home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD011B.D64 / sector editor... (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.2 KB  |  98 lines
  1. 4 U=5216:SYSU+131
  2. 5 DIMC$(13):DATA"","[157]","","[145]","",@,R,T,+,B,-,J,Q:FORC=1TO13:READC$(C):NEXT
  3. 7 T$="                                       "
  4. 10 P=1345:T=18:S=0:POKE53280,11:POKE53281,0
  5. 15 PRINT"[147]"TAB(11)"[158]64 [196][201][211][203] [195][210][193][195][203][197][210] 1.0[146]"
  6. 20 PRINTTAB(19)"BY":PRINTTAB(14)"[205]IKE [202]. [200]ENRY"
  7. 25 PRINT" [158]([195]) [156]1983,86 [159]BY [194]ASEMENT [194]OYS [211]OFTWARE"
  8. 30 PRINTTAB(9)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINTTAB(9)"[221][212][210][193][195][203]:    [211][197][195][212][207][210]:    [221]"
  9. 40 PRINT"[176][192][192][192][192][192][192][192][192][189][154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][173][192][192][192][192][192][192][192][174]";
  10. 50 FORC=1TO6:PRINT"[221][153] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]  [146][221]";:NEXT
  11. 55 PRINT"[221][153]                            [146]:::[176][192][192][192][192][192][192][189]";
  12. 60 PRINT"[173][192][192][192][192][192][192][192][174][154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][221]"
  13. 70 PRINTTAB(8)"[221]POSITION:     BYTE:    [221]"
  14. 80 PRINTTAB(8)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  15. 90 PRINTTAB(14)"[158][195]OMMAND [205]ENU":PRINTTAB(14)"[163][163][163][163][163][163][163][163][163][163][163][163]"
  16. 100 PRINT"[158]@[146])[159] [195]HANGE [194]YTE      [158][210][146])[159] [210]EWRITE [194]LOCK"
  17. 110 PRINT"[158][212][146])[159] [212]EXT [211]TRING      [158]+[146])[159] [198]ORWARD 1 [194]LOCK"
  18. 120 PRINT"[158][194][146])[159] [206]EW [194]LOCK        [158]-[146])[159] [194]ACKWARDS 1 [194]LK"
  19. 130 PRINT"[158][202][146])[159] [202]UMP [204]INK        [158][209][146])[159] [209]UIT [208]ROGRAM"
  20. 140 GOTO750
  21. 200 Q1=Q1+128:IFQ1>255THENQ1=Q1-256
  22. 205 POKEP,Q1:FORC=1TO8:GETA$:IFA$<>""THEN209
  23. 207 NEXT:GOTO200
  24. 209 IFTI>500THENPRINT""T$;:POKE2023,32
  25. 210 TI$="000000":I=0:FORC=1TO13:IFA$<>C$(C)THENNEXT:GOTO200
  26. 220 POKEP,Q:ONCGOTO300,350,400,450,500,550,600,650,700,750,800,850,998
  27. 300 D=37:IFY=6THEND=27
  28. 305 IFX<DTHENX=X+1:GOTO530
  29. 310 IFX=DTHENX=0:IFY<6THENY=Y+1:GOTO530
  30. 315 Y=0:GOTO530
  31. 350 IFX>0THENX=X-1:GOTO530
  32. 355 X=37:IFY>0THENY=Y-1:GOTO530
  33. 360 X=27:Y=6:GOTO530
  34. 400 D=6:IFX>27THEND=5
  35. 405 IFY<DTHENY=Y+1:GOTO530
  36. 410 Y=0:GOTO530
  37. 450 D=6:IFX>27THEND=5
  38. 455 IFY>0THENY=Y-1:GOTO530
  39. 460 Y=D:GOTO530
  40. 500 X=0:Y=0
  41. 530 POKEP,Q:P=1345+Y*40+X:Q=PEEK(P):Q1=Q
  42. 535 P1=Y*38+X:PRINT"[159]"TAB(18)"    [157][157][157][157]"P1
  43. 540 PRINTTAB(28)"[145]    [157][157][157][157]"Q:GOTO200
  44. 550 PRINT""TAB(28)"";:V=Q:L=2:GOSUB999:Q=V:GOTO530
  45. 600 REM REWRITE BLOCK
  46. 601 PRINT""TAB(10)"[193]RE [217]OU [211][213][210][197] ([158][217][146]/[158][206][146])? [164][157]";
  47. 602 GETA$:IFA$="N"THENPRINTA$:GOTO666
  48. 604 IFA$<>"Y"THEN602
  49. 606 PRINTA$:OPEN15,8,15:OPEN5,8,5,"#":PRINT#15,"B-P:5,0"
  50. 607 SYSU+84:PRINT#15,"U2:5,0,";T;S:INPUT#15,A$,B$,C$,D$
  51. 608 SYSU+131:IFVAL(A$)<>0THEN2010
  52. 610 PRINT#15,"I":CLOSE5:CLOSE15:GOTO666
  53. 650 PRINT""TAB(6)"([200]IT [210][197][212][213][210][206] TO END [212]EXT [205]ODE)[158]"
  54. 651 Q1=Q1+128:IFQ1>255THENQ1=Q1-256
  55. 655 POKEP,Q1:FORC=1TO10:GETA$:IFA$<>""THEN660
  56. 657 NEXT:GOTO651
  57. 660 IFA$<>CHR$(13)THEN670
  58. 665 POKEP,Q
  59. 666 PRINTTAB(6)"[145]        [195]OMMAND [205]ENU         ":GOTO530
  60. 670 POKEP,ASC(A$):D=37:IFY=6THEND=27
  61. 672 IFX<DTHENX=X+1:GOTO678
  62. 674 IFX=DTHENX=0:IFY<6THENY=Y+1:GOTO678
  63. 676 Y=0
  64. 678 P=1345+Y*40+X:Q=PEEK(P):Q1=Q:GOTO651
  65. 700 REM FORWARD 1 BLOCK
  66. 701 S=S+1:GOTO2000
  67. 750 REM NEW BLOCK
  68. 751 SYSU+46:PRINT""TAB(17)"";:V=T:L=1:GOSUB999:T=V
  69. 752 PRINTTAB(28);:V=S:GOSUB999:S=V:GOTO2000
  70. 800 REM BACKWARDS 1 BLOCK
  71. 801 S=S-1:GOTO2000
  72. 850 REMJUMP LINK
  73. 851 T=PEEK(P):D=37:IFY=6THEND=27:IFX=DTHENS=PEEK(1345):GOTO2000
  74. 855 IFX=DTHENS=PEEK(P+3):GOTO2000
  75. 860 S=PEEK(P+1):GOTO2000
  76. 998 END
  77. 999 PRINTLEFT$("[159]    ",L+3);LEFT$("[157][157][157][157]",L+2);:FORC=0TO1:T$(C)="":NEXT:W=0:V1=0
  78. 1000 FORC=1TO10:GETA$:IFA$<>""THENPRINT"[146] [157]";:GOTO1010
  79. 1005 NEXT:PRINT"[146]";:F=NOTF:IFFTHENPRINT"";
  80. 1006 PRINT" [157]";:GOTO1000
  81. 1010 IFA$=CHR$(20)THENIFW>0THENPRINT"[157] [157]";:W=W-1:T$(W)=""
  82. 1015 IFA$=CHR$(13)THEN1050
  83. 1020 IFA$<"0"ORA$>"9"THEN1000
  84. 1030 IFW>LTHEN1000
  85. 1040 T$(W)=A$:W=W+1:PRINT"[146]"A$;:GOTO1000
  86. 1050 IFT$(0)=""THENRETURN
  87. 1055 FORC=W-1TO0STEP-1:V1=V1+(10^(W-C-1))*VAL(T$(C)):NEXT:V=V1:RETURN
  88. 2000 SYSU+46:PRINT""TAB(17)"  [157][157][157]"TTAB(28)"  [157][157][157]"S
  89. 2003 IF(T<1)OR(T>35)THENA$="[201]LLEGAL [212]RACK":GOTO2009
  90. 2004 OPEN1,8,15:PRINT#1,"M-E"CHR$(0)CHR$(4)CHR$(T)CHR$(S);:SYSU+134
  91. 2005 IFPEEK(5)=0THENP=1345:Q=PEEK(P):X=0:Y=0:CLOSE1:GOTO530
  92. 2008 A$="[210]EADING [208]ROBLEM"
  93. 2009 B$="":C$="":D$=""
  94. 2010 PRINT"";:FORX=1TO5:PRINT"                                        ";:NEXT
  95. 2015 PRINT"[158][196][201][211][203] [197][210][210][207][210]:":PRINT""A$","B$","C$","D$
  96. 2020 GETA$:IFA$=""THEN2020
  97. 2030 RUN
  98.